home *** CD-ROM | disk | FTP | other *** search
/ PsL Monthly 1993 December / PSL Monthly Shareware CD-ROM (December 1993).iso / prgmming / dos / fortran / peekpo.com / PUTM.FOR < prev    next >
Encoding:
Text File  |  1989-10-12  |  427 b   |  14 lines
  1.       INTERFACE TO SUBROUTINE PUT_IT(S,I1,I2,I3,I4,C)
  2.       integer*4 s [VALUE]
  3.       character*1 c 
  4.       end
  5.       PROGRAM CRT_WRITE_MSF
  6.       integer*4 icrt/#B8000000/                ! Color adapter
  7. c
  8.       call put_it(icrt, 7,0,21,17,'Message from MSF Follows')
  9.       call put_it(icrt,15,1,21,18,'HOW''S ')   ! Bold White
  10.       call put_it(icrt,14,9,27,18,'THIS?')     ! Flashing Yellow
  11. c
  12.       stop
  13.       end
  14.